subroutine init_motion_param
  use motion_param
  implicit none

  n_motion=0

  default_motion=4

  nullify(mtype)

  return

end subroutine init_motion_param
